home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_oth / lck21b / junk.lsp < prev    next >
Text File  |  1987-08-18  |  2KB  |  51 lines
  1. ; Cleanup things - an end for all programs
  2. (DeFun End ()
  3.   (Command "OSnap" "None")
  4.   (SetVar "Aperture" 8)
  5.   (SetVar "BlipMode" 1)
  6.   (GC) ; garbage collection
  7.   (Princ)
  8. )
  9.  
  10. ; make a temporary block
  11. (DeFun C:MBlk()
  12. ; <<<< Here is a missing quote error >>>>
  13. ; <<<< The quote error will have to  >>>>
  14. ; <<<< be fixed to check the balance >>>>
  15. ; <<<< on the parenthesis            >>>>
  16.   (Prompt "\Pick items for block)
  17. ;                          block") is correct
  18.   (SetQ SS (SSGet))
  19.   (SetQ Base (GetPoint "\Pick the Base point "))
  20.   (If (Or (Null SS) (Null Base))
  21.     (SetQ Base Nil SS Nil))
  22. )
  23.  
  24. ; copy temporary block multiple times
  25. (DeFun C:IBlk()
  26. ; <<<< Here is code with 2 missing   >>>>
  27. ; <<<< quotes. Even though it checks >>>>
  28. ; <<<< okay you can see by the gray  >>>>
  29. ; <<<< color what's in quotes        >>>>
  30.   (Command "Copy SS "" "M Base)
  31. ; (Command "Copy" SS "" "M" Base)
  32. ; <<<< is what it should be >>>>
  33.   (Princ)
  34. )
  35.  
  36. ; change snap value up (use whole numbers)  2 to double
  37. ;              or down (use decimal value) .5 to halve it
  38. ;             and tell user new value.
  39. ; put in screen or tablet menu
  40. ; [Snap Up](ChgSnap 2)
  41. ; [Snap Dn](ChgSnap 0.5)
  42. (DeFun ChgSnap (Loc)
  43. ; <<<< Here is a missing right parenthesis >>>>
  44.   (SetVar "SnapUnit"  ; << this yellow level >>
  45.     (MapCar '* (GetVar "SnapUnit") (List Loc Loc))
  46. ;   (MapCar '* (GetVar "SnapUnit") (List Loc Loc)) )
  47.   (Prompt             ; << should be yellow level >>
  48.     (StrCat "\nSnap = " (RToS (Car (GetVar "SnapUnit")) 4 8)) )
  49.   (End)               ; << should be yellow level >>
  50. )
  51.